(file-newest-backup): Use `expand-file-name'.

diff --git a/lisp/files.el b/lisp/files.el
index 5ec82a392066be40a06f8f98835c1546341bf553..cd6f52d9f8fbf7e1f3722ebe44449f10c2380c87 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3343,7 +3343,7 @@ saying what text to write."
   ;; ordinary or numeric backups.  It might create a directory for
   ;; backups as a side-effect, according to `backup-directory-alist'.
   (let* ((filename (file-name-sans-versions
-                   (make-backup-file-name filename)))
+                   (make-backup-file-name (expand-file-name filename))))
         (file (file-name-nondirectory filename))
         (dir  (file-name-directory    filename))
         (comp (file-name-all-completions file dir))